home *** CD-ROM | disk | FTP | other *** search
/ Explore Yellowstone / Explore Yellowstone (1997)(The Learning Company)[PC-Mac].iso / pc / help.dir / 00003_Script_fr loop1 < prev    next >
Text File  |  1996-02-27  |  441b  |  15 lines
  1. on exitFrame
  2.   global WhichChannel, WhichCast
  3.   repeat with CursorLoc = 5 to 17
  4.     if RollOver(CursorLoc) then
  5.       put CursorLoc into WhichChannel
  6.       puppetsprite WhichChannel, TRUE     
  7.       put the castNum of sprite WhichChannel into WhichCast
  8.       set the castNum of sprite WhichChannel to (WhichCast + 1)
  9.       updateStage        
  10.       go to "Loop2"
  11.       exit repeat
  12.     end if 
  13.   end repeat
  14.   go to the frame
  15. end